home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / mail / 1st_101b.zip / 30-REPLY.SCR < prev    next >
Text File  |  1992-09-28  |  963b  |  49 lines
  1. '       Reply script file for 1st reader
  2. '       Written by Martin W. Diers
  3. '       Modified by Sparky for Wildcat! 3.5
  4. '       September 27, 1992
  5.  
  6. CAPTURE ON
  7. TIMEOUT 30
  8.  
  9. LOCKLINE 20 30
  10. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  11. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  12. COMMENT "@DATE@ @TIME@  Logging in to system"
  13.  
  14. LOOKFOR "Y/n]" "Y^M"
  15.  
  16. WAITFOR "first name" 20
  17. TRANSMIT "!@USER@^M"
  18. WAITFOR "password"
  19. TRANSMIT "@PASSWORD@^M"
  20.  
  21. LOOKFOR "Y/n]" ""
  22.  
  23. IF NOT REPLIES GOTO EXIT
  24. COMMENT "@DATE@ @TIME@  Uploading replies"
  25. WAITFOR "H G Q]:"
  26. TRANSMIT "U^M"
  27. UPLOAD @REPDIR@@BBSID@.REP
  28.  
  29. WAITFOR "uploaded|UNSUCCESSFUL|NOT|rejected"
  30. IF FOUND=1 GOTO GOODUPLD
  31. GOTO EXIT
  32.  
  33. :GOODUPLD
  34. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  35. KILL @REPDIR@@BBSID@.REP
  36. COUNT REP
  37.  
  38. :EXIT
  39. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  40. WAITFOR "H G Q]:"
  41. TRANSMIT "G^M"
  42. GOTO END
  43.  
  44. :END
  45. WAITFOR "Thanks" 20
  46. PAUSE 2
  47.  
  48. CAPTURE OFF
  49.